% Function dlb(id) set rs8=server.CreateObject("ADODB.RECORDSET") sql8="select * from lb where lb_id="&id&"" rs8.open sql8,conn if rs8.eof then response.Write "没有大类" else response.Write rs8("lb_name_e") end if rs8.close End Function %>
Product:
<%
id=request("id")
set rs=server.CreateObject("ADODB.RECORDSET")
sql="select * from cp where cp_id="&id&""
rs.open sql,conn,1,3
if not rs.eof then
rs("cs")=rs("cs")+1
rs.update
%>
|